home *** CD-ROM | disk | FTP | other *** search
/ MacFormat España 22 / macformat_22.iso / Shareware / HyperCard / get-set-name-lock-25 / Get⁄SetNameLock 2.5 / Get_SetNameLock 2.5 / card_2941.txt < prev    next >
Encoding:
Text File  |  1996-09-05  |  2.9 KB  |  89 lines
  1. -- card: 2941 from stack: in.5
  2. -- bmap block id: 2158
  3. -- flags: 0000
  4. -- background id: 2672
  5. -- name: 
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 05
  10. -- high flags: 2007
  11. -- rect: left=1 top=82 right=309 bottom=511
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 4
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: 
  20.  
  21.  
  22. -- part 5 (button)
  23. -- low flags: 00
  24. -- high flags: A002
  25. -- rect: left=3 top=54 right=76 bottom=103
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GetNameLock
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   answer file "Choose a file to examine:"
  37.   put it into appname
  38.   if appname = "" then exit to hypercard
  39.   get getnamelock(appname)
  40.   if the number of chars of it ‚⧠5 then
  41.     answer "The NameLock of ‚Äú" & appname & "‚Äù is" && it & "."
  42.   else
  43.     answer it with "Sorry"
  44.   end if
  45. end mouseUp
  46.  
  47.  
  48.  
  49. -- part 6 (button)
  50. -- low flags: 00
  51. -- high flags: A002
  52. -- rect: left=108 top=54 right=76 bottom=208
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: SetNameLock
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   answer file "Choose a file to examine:"
  64.   put it into appname
  65.   if appname = "" then exit to hypercard
  66.   answer "Change NameLock to what?" with getnamelock(appname) or not(getnamelock(appname))
  67.   if it = "" then exit mouseup
  68.   setnamelock appname,it
  69.   if the result ‚↠"" then answer the result with "Sorry"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part contents for card part 3
  75. ----- text -----
  76. GetNameLock takes one parameter, the pathname of the file you want to examine. SetNameLock takes two parameters, the pathname of the file and true or false to set the nameLock. 
  77.  
  78. Click on and/or examine the scripts of the buttons above to see how they work!
  79.  
  80. This external is free for purely personal use. A license fee of $10.00 is required if you use this external in any ‚Äúin-house‚Äù corporate, shareware or freeware products. The license fee for unlimited commercial use in a SINGLE ‚Äúfor sale‚Äù product is $25.00. The license fee for unlimited commercial use with MULTIPLE products is $100.00.
  81.  
  82. Permission is hereby granted to all groups who distribute demo software, either for profit (such as EduCorp) or not for profit (such as a Macintosh Users Group), to include this file in their collection. My goal is to get as much exposure for my products as possible, and I believe that these groups offer an invaluable service to shareware publishers like myself.
  83.  
  84. If you have questions or comments we can be reached through the following:
  85.  
  86. Iverson Software Co.          507.625.7355
  87. 522 Record St.                j5rson@prairie.lakes.com
  88. Mankato MN  56001-2546        http://prairie.lakes.com/~j5rson/
  89.